SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TDFINA_PAGO_D01]
/*--------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                	--*/  
/*---Cliente              : OFISIS                 		--*/  
/*---Sistema              : Tesoreria                  	--*/  
/*---M÷dulo               : Empresa                    	--*/  
/*---Programa             : Grabaci÷n Detalle          	--*/  
/*---                       Movimiento (Pagos)			--*/  
/*---Script               : tcmovi_b.sql               	--*/  
/*---Nombre SP            : SP_TDFINA_PAGO_D01         	--*/  
/*---Desarrollado por     : Carlos Maqruez Escobar    	--*/  
/*---Fecha Creaci÷n       : 10/02/2006                 	--*/  
/*---Base Datos           : Microsoft Sql Server       	--*/  
/*---Versi÷n              : 8.0                        	--*/  
/*---Invoca a SP          :                            	--*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Modificado 1 por     :  							--*/  
/*---Fecha Modificaci÷n   :                             --*/   
/*---Detalle Modificaci÷n :                             --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Drop Proc SP_TDFINA_PAGO_D01                      --*/  
/*---Grant Execute on SP_TDFINA_PAGO_D01 to public     --*/   
/*---SP_TDFINA_PAGO_AUXI_I01                           --*/  
/*-------------------------------------------------------*/  
 @ISCO_EMPR			TD_VC_002,
 @ISCO_USUA_MODI	TD_VC_008_USUA,
 @ISCO_BANC			TD_VC_003,
 @ISCO_TIPO_FINA	TD_VC_020,
 @ISNU_COMP_FINA	TD_VC_008,

 @INNU_SECU   		TD_IN_001
  
 as  
   Declare  
	@VNNU_SECU	TD_IN_001,
 	@VSTI_SITU	TD_VC_003
  
 Begin Tran SP_TDFINA_PAGO_D01

		Select @VSTI_SITU = TI_SITU
		From 	TCFINA_BANC
		Where CO_EMPR = @ISCO_EMPR 
		and    CO_BANC = @ISCO_BANC 
		and    CO_TIPO_FINA = @ISCO_TIPO_FINA 
		and    NU_COMP_FINA = @ISNU_COMP_FINA 


		Delete TDFINA_PAGO
		Where CO_EMPR = @ISCO_EMPR 
		and    CO_BANC = @ISCO_BANC 
		and    CO_TIPO_FINA = @ISCO_TIPO_FINA 
		and    NU_COMP_FINA = @ISNU_COMP_FINA 
		and    NU_SECU = @INNU_SECU 

	If @@error <> 0  
	Begin  
		Rollback tran  SP_TDFINA_PAGO_D01
		Return  
	End  
	
	If @VSTI_SITU != 'ANU' And @VSTI_SITU != 'PAP'
		Update TCFINA_BANC
			Set TI_SITU = 'APR', CO_USUA_MODI = @ISCO_USUA_MODI, FE_USUA_MODI = GetDate()
		Where CO_EMPR = @ISCO_EMPR 
		and    CO_BANC = @ISCO_BANC 
		and    CO_TIPO_FINA = @ISCO_TIPO_FINA 
		and    NU_COMP_FINA = @ISNU_COMP_FINA 

	If @@error <> 0  
	Begin  
		Rollback tran  SP_TDFINA_PAGO_D01
		Return  
	End  

  
Commit Tran SP_TDFINA_PAGO_D01
  
RETURN  
/*------------------------ Fin ------------------------------*/


GO
